Filename: /text/sbasic/shared/03020101.xhp

Close Statement [Runtime]
Close ステートメント [実行時](hd_id3157896.1)

Closes a specified file that was opened with the Open statement.
Open ステートメントでオープンされたファイルに対し、指定ファイルをクローズします。(par_id3147573.2)

Syntax:
構文:(hd_id3156344.3)

Close FileNumber As Integer[, FileNumber2 As Integer[,...]]
Close FileNumber As Integer[, FileNumber2 As Integer[,...]](par_id3147265.4)

Parameters:
パラメータ:(hd_id3153379.5)

FileNumber: Any integer expression that specifies the number of the data channel that was opened with the Open statement.
FileNumber: Open ステートメントでオープンされたデータチャネル番号を指定する整数表式。(par_id3150791.6)

Example:
例:(hd_id3153192.7)

Sub ExampleWorkWithAFile
Sub ExampleWorkWithAFile(par_id3154909.8)

Dim iNumber As Integer
Dim iNumber As Integer(par_id3154124.9)

Dim sLine As String
Dim sLine As String(par_id3155132.10)

Dim aFile As String
Dim aFile As String(par_id3155854.11)

Dim sMsg as String
Dim sMsg as String(par_id3146985.34)

aFile = "c:\data.txt"
aFile = "c:\data.txt"(par_id3154013.12)

sMsg = ""
sMsg = ""(par_id3152598.13)

iNumber = Freefile
iNumber = Freefile(par_id3147427.14)

Open aFile For Output As #iNumber
Open aFile For Output As #iNumber(par_id3151112.15)

Print #iNumber, "First line of text"
Print #iNumber, "First line of text"(par_id3153727.16)

Print #iNumber, "Another line of text"
Print #iNumber, "Another line of text"(par_id3147350.17)

Close #iNumber
Close #iNumber(par_id3149667.18)

iNumber = Freefile
iNumber = Freefile(par_id3145801.22)

Open aFile For Input As iNumber
Open aFile For Input As iNumber(par_id3147396.23)

While not eof(iNumber)
While not eof(iNumber)(par_id3147124.24)

Line Input #iNumber, sLine
Line Input #iNumber, sLine(par_id3154491.25)

If sLine <>"" then
If sLine <>"" then(par_id3149581.26)

sMsg = sMsg & sLine & chr(13)
sMsg = sMsg & sLine & chr(13)(par_id3155602.27)

end if
end if(par_id3154511.29)

wend
Wend(par_id3150749.30)

Close #iNumber
Close #iNumber(par_id3156276.31)

Msgbox sMsg
Msgbox sMsg(par_id3155066.35)

End Sub
End Sub(par_id3154754.32)